.DO External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Modu I e : SrvoUt i I s 

> 

> BANK 1 MODULE 

> 

> This module holds those routines th»3t make up most of the 

> aux i 1 1 ary servo commands . 

> 

> PROCEDURE SeruoCmndC Commands tring : 4 BVTES { Ir0:3 } ) 

> PROCEDURE ServoStatus< CommcindString : 4 BVTES { !r0:3 > 

> BufferPtr : PTR { !!rE } 

> > 

> FUNCTION SeryoStore : BOOLERH 

> FUNCTION ServoLoad< BufferPtr : PTR { I!r2 } > : BOOLEAN 

> FUNCTION Restored RecalType : BVTE { !rO } ) : BOOLEfiN 

> PROCEDURE SrvoRcvry 

> PROCEDURE LoadJSrvoCmnd 

> PROCEDURE Park_Heads 

> PROCEDURE ResetServo 
> 

>>>>>>>>>>>>>>>>>> » >>>>>>>>>> > > > 
.LSTOFF 
.FIN 

.DO External 

.LSTON 

.Page 

> :> > > .V > > > > > > > > > > > > > > > > >>>>>>>>>> 

> Procedure: SeryoCmnd { Send the Servo a command )• 

> Inputs: 

> Commands tr i ng : 4 BVTES I ! rO : 3 > 

> Outputs: t none ) 

> Global Uariables Changed: 

> SrvoCmndBuf fer 

> 

> Local Uariables: 

> SloRetry : BVTE { !r8 > 

> fl I gor 1 thm : 

> 

> BEGIN 

> SrvoCmndBufferl CommandByte ] := !rO 

> SryoCmndBufferC LoDiffByte 1 := !r1 

> SryoCmndBufferl OffsetByte } := !r2 

> SrvoCmndBufferC StatusByte 1 := !r3 

> SioRetry := 4 

> WHILE n5t< ServoStoret; Commands tring > ) AND < SioRetry > > DO 

> SioRetry := SioRetry - 1 

> IF < SioRetry = > ABORT 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 



-Page 
.FIN 

SerMoCmnd : 





Srp 


*14rk-Sys2 




Cal 1 


LoadJSrvoCmnd 




Ld 


Ir8^#4 ;SioRetry := 4 




Ld 


!r4,ScrRegO ;save command 




Ld 


IrS^ScrReg t 




Ld 


!rfl.ScrReg2 




Ld 


IrB^ScrRegS 


Srv JD_Lp : 


Cal 1 


ServoStore 




Jr- 


Nz,Sry_jC_End 




Ld 


ScrRegO, !r4 ; restore command 




Ld 


Scr^egl . !r5 




Ld 


ScrRegZ. !rfi 




Ld 


ScrRegS, IrB 




Djnz 


!r8,Srv_C_Lp 


Sry_CjRbort : 


Cal 1 


Abort 


Sru_C_£nd : 


Srp 


«WrkJSys 




Jp 


Bank_Ret 




.LSTOFF 






.DO 


External 




.LSTOH 






.Page 




; >>>>>>>> > > > > > 


>>>>>> > > > 


?>>>>>>>> 



;> Procedure: ServoStatus { Read a status location froia the servo ) 

;> Inputs: 

;> CommandString ; 4 BVTES { !r0:3 } 

;> BufferPtr : PTR { I IrE } 

; > 

;> Outputs: { none } 

; > 

;> Global Uar fables Changed: 
;> SruoCmndBuf far 

;> §BufferPtr 

; > LocQ I Uar i ab I es : 

;> SloRetry : BS'TE { IrS > 

; > fl I gor i thro : 

;> BEGIN 

; > ServoGfflnd 

;> IF NOT< ServoLoad< BufferPtr ) ) THEN ABORT 

; > END 
* > 

;>>>>>>>>>>>>>>>>>>>>>>>>>:>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

. Page 



.FIN 



ServoStcitus: 



Srv^t_Lp1 : 
Srv_St_£l£e: 



5rv_JSt_End: 



S_Reset: 



I- ■> V :- "> i 'b- ■^ 



Push 


!r8 jsave for »;aller 


Cal f 


ServoCmnd 


Call 


ServoLcad 


Jr 


Z^SrvJSt_End 


Srp 


•MrkJSys 


Call Abort 


Pop 


!r8 


Jp 


Bc!nk_Ret 


Call 


Ext_Push 


Cal 1 


ResetServo 


Cal 1 


Ext_Pop 


Ld 


!rO^*DataRecal 


Cal 1 


Restore 


Ret 




.LSTOFF 




.DO 


External 


.LSTOM 




.Page 




>>>>>>>>>>>>>>>> 



Function: ServoStore 

The function of this routine is to transmit a command string 
to the Servo Processor. The coiumand string is expected to 
reside in the global variable 

SrvoCmndBuf fer < thus providing a record of the last command 
sent to the servo >. ServoStore then attempts to complete the 
tronsm i ssion to the Servcj^ and re ttcos a boo jean v^ 
indicating whether the transmission mas completed or not. 



Inputs; 



Parsni : BVTE 



Outputs: 

ServoStore : BOOLEAN { Zero flag; True if transmission fail 

Local Uariables: 

Retry : BVTE { Ir5 ) 

i : BVTE { !r4 ) 

j : BVTE { IrS > 

fiigori thm: 

BEGIN 

SrvoCmndBufferE CheckByte i := GenerateCheckByteC 

PTR< SrvoCmndBuffer >, 
Length'' SrvoCmndBuffer ) > 

Retry := 10 
REPEAT 

FOR { := 1 TO 5 00 

MHILE < IRQ.SerialOutput = False > OR HOT< SioReady .> DO 
BEGIN 
END 

Sio.Dcjta := SrvoCmndBuffer [ i J 

Retry := Retry - 1 



> FOR j := 1 TO < value for wait of 250 usee > DO BEGIN END 

> UNTIL NOT<: SioReady ) OR < Retry = ) 

> FOR j := 1 TO < value for wait of 400 usee > DO BEGIN END 

> IF C Retry = > 

> THEN ServoStore := False 

> ELSE ServoStore := True 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 





.LSTOFF 








.FIN 








.00 


I nterna \ 






.LSTON 








-Page 








.FIN 






ServoStore: 


Push 


Rp ;save context 






Srp 


«MrkJScr 






Ld 


! rE^ * . H 1 BVTE . SrvoCmndBuf f er 






Ld 


!rF,».LOWBYTE. SrvoCflindBuf fer 






Ld 


lr8,«SjCmnd_Len - t 






Cal 1 


Gen_Chk JBy te 






Ld 


fr6,»10 j Re try := 10 




Srvo_-St_Bpt: 


Ld 


? rE , « . H 1 BVTE . Sr yoCirmdBu f fer 






Ld 


! rF , « . LOWB VTE . Sr voCmndBu f fer 






Ld 


!r4,»S_JCmndJLen 




Srvo_St_1 : 


Tm 


Port2,«SioPrfiy ; WHILE NOT< SioReady > 






Jr 


Z^Srvo-JSt_1 






ftnd 


lrq^*$FF-Ser iai -Out-Serial _ln ;cf ear old interrupt 




Lde 


lrOj,f?!rE ;get o cofnuiand byte 






Ld 


SioJrO ;send it to Servo 






I new 


irE ; point to next comisand byte 




SrMO_St_2: 


Tm 


lrq,»SerialJOut ;UHILE ( IRQ.SerialOut = False > 






Jr 


SrvoJSt_2 






Djnz 


!r4^Srvo_St_l ; loop "tl! all command bytes are 


sent 




And 


lrq,*$FF-Ser iaiJOut jclear old interrupts 






Ld 


}r5^*80 ;do a 250 usee wait 




Srvo_Wt_t : 


Djnz 


!r5^Srvo_i4t_1 






Tm 


Port2,«SioRdy ;if NOT< SioReady > then Servo 






Jr 


Z.SrvoJSt-Exi t ; took the bytes and is munchin' 


on 'ei 




Djnz 


!r6,SrvoJSt-Bpt ; Re try := Retry - 1 




Srvo_St_Exi t: 


Or 


Ir6^!r6 ;test tor Retry = 






Pop 


Rp ;r&iurri to original context 






Ret 








.LSTOFF 








.DO 


External 






.LSTON 








-Page 







>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Function: ServoLoad 

This function is responsible for reading a status response back 
from the servo. The bytes that it receives are stored into a 
buffer that is passed into the routine in the form of a PTR. 
ServoLoad passes back to the cai ler a BOOLEfiH variable describing 
whether the checkbyte mas valid < I.e.. the transmission was a 
success . 



Inputs: 



Parent : BVTE { fri > 
BufferPtr : PTR { }r2:3 > 



> Outputs: 

ServoLoad : BOOLEfiN { Zero flag, true if checkbyte mismatch } 

> 

> Global Uariables Changed: 

> Buffer pointed to by !!r2 

> 

> Local Uariables: 

> i : BVTE { !r4 } 

> TempBufPtr : PTR { llrfi } 

> fl I gor i thffl : 

> 

> BEGIN 

> FOR i := 1 TO 5 DO 

> UHILE NOT< Irq.Seriallnput > DO BEGIN END 

> BuffarC 1 1 := Sio.Data 

> ServoLoad := CheckJCheck_ByteC PTR< Buffer ). 5 ) 

> END 

> 

:>>>>>>>>>>:>>:>>>>>>>>>>>>:*>>>>>>> 

-LSTOFF 

.FIH 

.00 fnternai 

.LSTON 

-Page 

.FIN 



ServoLoad: 



SrMO_Ld_tJt: 



Push 
Srp 

Ld 

Tffi 
Jr 

Rnd 

Ld 
Lde 

f new 

Djnz 

Ld 
Ld 

Ld 



Rp ;save context 
*WrkJScr ; con text switch 

!r4j.*5 ; load i 



lrq^*Serial_ln 
Z,SrvoJ.dJ4t 

I rq, »$FF-Ser I a I _l n 



; clear old interrupts 



IrO^Sio 
§!!rEJrO 

! !rE 

ir4j,Srvo_Ld_Wt 



;read SIO 

; and store in buffer 

; point to next location in buffer 

; loop "til all bytes are read 



lrE^«.HIBVTE. SStatusO ;qet original buffer ptr 
!rF,».LOWBVTE. SStatusO " 

!r8^*4 ; length of buffer 



Call ChkjChkJ3yte 

Pop Rp .context switch 

Ret 

.LSTOFF 

.DO External 
. LSTON 
. Page 



Function: Restore 

This procedure performs a Recal operation on the servo. 
Normally, a ReadHeader operation is to be performed after 
the Servo comes ready, and the current cylinder is to be 
subsequently updated. This mechanisin < doing the ReadHeader > 
can be turned off by clearing the RdHdrRecal bit in the 
exception working register set. 

Inputs: 

Recal Type : BVTE { IrO } 

Outputs: 

Restore : BOOLEAN { zero flag is true if NOT< ServoRdy > 
fl I gor i thin : 
BEGIN 

ServoCfljnd( Recal Type, 0, 0., 57.5K Baud > 

WHILE NOT<: ServoRdq > AND 2 seconds hasn't gone bq 00 BEGIN END 
IF < Disks tat. RdHdrRecal > RND ServoRdy 

THEN IF N0T< UpDateJCurJCql > THEN Abort 

ELSE 

IF ( Recal Type = DataRecal > 
THEN Cur_Cyl := lnlt_Cy{ 
ELSE Cur-£y I : = flax JCy I 
Restore := ServoRdy 
END 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO internal 

. LSTON 

.Page 

.FIN 



Push 


IrO ;save Recal Type for 


later 


Cal I 


Ext_Push 




Cal 1 


SetJ3ffit 




Srp 


«NrkJScr 




Pop 


IrO ;save Recal Type for 


later 


Push 


IrO 




CIr 


!r1 




CIr 


!r2 




Ld 


!r3,**S_RateJ5?_6 




Srp 


•MrkJSys 





Cal I ServoCmnd 
Cal I Clr_Dmt 
find D i skS ta t , «$FF-On_Track 



Col I 



Se t jSeekfleed ed 



RestJLlp2: 
Restore_Lp: 



Rest-UpDate: 



Restatpl: 
Re£tore_£nd: 



Ld 
Ld 

Pop 

Cp 

Jr 

Ld 
Ld 

CIr 
Ld 

Cal I 

Tm 

Jr 

Decui 
Jr 

CIr 
Jr 

Tm 
Jr 
Cp 

Jr 

Caf } 
Jr 

Cal { 
Cal [ 

Id 

Push 

Cal i 

Pop 

Or 

Jp 



Cur_Ci| I ^ *H i MaxCy I ; assume Forma tReca I 
Cur _Cy I +1,»LonaxCyf 

!r6 ; load RecalType from storage 

!r5j,*FrmtRecal 

Z,Re£tJJp2 

Cur _i;y I , « I n i t_H } Cy I ; o ther w i se Da tcjReca I 
CurJCry I + 1 , « I n i tJ_oCu I 

IrS 

!r4j,*$D5 ;max time to wait is two seconds 

Loads tatus 
!rO,«SerwRdy 
Nz.RestJUpDate 
! !r4 

Hz^RestoreJLp 



IrO 

Restore_Erid 



;pass error status to exit 



D i skStat . *RdHdrReca I 
Z,Rest_Up1 

lr5.*FrmtReceil ; don't try to read headers here! 
Z,Rest_Up1 

UpDateJCur_£:y { 

Nz , Res t JJp 1 ; i eave i f pos i t i oned correc 1 1 y 

SS-lioHdr ; header err here is bad news! 
fibort 

irO,«l 

! rO ; save resy i t 

Ext_Pop 

IrO 

IrO^ IrO ;set zero flag 
Bank_Ret 



.LSTOFF 

.DO External 

.LSTOH 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Procedure: SrMoRcvry { SeryoRecovery )• 

This procedure's respons i b 1 i ty is to do everything within reason 
to make certain that the Servo Processor is Healthy, Wealthy, and 
Wise; and if it can't then there is no point in using the Servo. 

Inputs: { none } 

Outputs: { none } 

Local Uariables: 

1 : BVTE { IrS > 

Error : BOOLERN { IrQ > 

Global Mariabies Changed: 



;> Ori_Track, Cur-_Cyl 

; > 

; > G I oba I Uar i ab i es Used : 

.;> Cylinder^ Head, Sector 

; > 

; > ft I gor i thm : 

■ > 

;> BEGIN 

;> i := 3 

; > REPEAT 

; > Zero_Header 

;> Error := False 

; > IF ServoError 

;> THEH Error := HOT< ServoOk > 

; > ELSE 

;> Error := NOT< ReadHdr > 

;> IF NOT < Error > 

; > THEN 

; > IF ReadHdr . Cy I i nder <> Cy I i nder 

;> THEN 

.: > Cur-Di^ I : = ReadHdr . Cy I i nder 

; > On_Track : = Fa 1 se 

;> IF NOT< On-Trock ) THEN Seek< Cylinder, Head, Sector > 

;> UNTIL < i = > OR NOTC Error > 

;> IF < } = > THEN fibort 

; > END 
j > 

!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 

SryoBcuru ' 

Col 1 
Ld 

SrMoJ=?Jlpt: Call 
Cal I 
Tfli 
Jr 

Cal I 

SrMO_R-JSok: Call 

Ld 
Ld 

Cal 1 

Call 

SrMO J3ec 1 : j nz 

Srvo-RJLeave : Ca 1 1 
Jp 



Ext_Push ;saus caller's stuff 

Ir8,«8 ; i := 8 

Zero_Header 
Loads tatus 
I rO . *SeryoErr 
Z, Sryo_R-^ok 

ServoOk 

UpDate_Hdr ; IF ReadHdr .Cy I i nder <> Cylinder... 
Nz , Sryo JRJLeaMe 

!rO,«1 jbytel 
!r1,»StatJSeek 
Set_Status 

ReSeek 

!rS,Srvo_R_Rpt 

Ex t -Pop ; ge t user ' s s tu f f back 
Bank_Ret 



.LSTOFF 

.00 E.xternal 



.LSTOM 
.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: LoadJSruoCmnd { Load Servo Command Buffer } 

> 

> This procedure loads the global array ServoCmndBuffer 

> Hj } th the i n f orma t i on con ta i ned w i Ih i n ! r : 3 



1 nputs : 





SryoCmndBuf f er t 





3 


: BVTE 


{ 


IrO > 


> 


SrvoCmndBuf fer [ 


1 


1 


. BYTE 


{ 


!r1 > 


> 


Sr uoCmndBu f f er I 


2 


3 


: BVTE 


{ 


!r2 } 


> 


Sr voCmndBu f fer I 


3 


I 


: BYTE 


i 


Ir3 > 



Outputs: { none } 



>>>>>>>>;>>>>>>>>>>>>:>;>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTOM 

.Page 

.FIH 



Load-JSruoCmnd : 



Ld_S_CmndJLp: 



Ld !r2.«.HIBVTE- SryoCmndBuf 

Ld !r3,«.L0WBVTE. SryoCmndBuf 

Ld !r1.*4 ;}oad 4 bytes 

Ld !rO^«ScrP,egO ; start with what's in ScrRegO 

Ldei @!!r2,i!rO 

Djnz !r1,Ld_S_Cmnd_Lp 



Ret 



.LSTOFF 

.DO Externcif 

.LSTOFF 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

; > Procedure : Park JHeads 

• > 

;> This procedure moves the heads in a closed- loop fashion 
;> < access command vs. Park command > to a location away from the 

;> user data area. The attempt here is to provide some additional 
;> protection from power failures, and the such, from accidentally 

; > wr i 1 1 ng bogus data on the d i sk . 

• :> 

; > Inputs: { none ) 

• > 

;> Outputs: { none } 

• "> 

j> Algorithm: 

;> 8EGIH 

;> Seek< H iParkCy I inder, LowParkCyl inder, 0, > 

; > Set_SeekNeeded 

;> END 

;> 

•>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 



.FIM 

.DO Internal 

.LSTON 

.Page 

.FIN 



Park-Heads : 

Ld SeekType^«ftccass 

Ld !rC,*HiParkCyl 

Ld !rD.«LowParkCyl 

Clr !rE 

CIr !rF 

Cai i Seek 



Or D i skSla t , «Parked 

find D i skS ta t , «$FF-On_Track 

Co I f Set_SeekMeeded 

Jp Bank-Ret 



.LSTOFF 

.DO External 

.LSTOH 

. Page 

>>>>>>>>>>>>>">>5-> >>>>>>>>>>>>>>>> 

> Procedure: ResetSerMO 

> This procedure is responsible for per form I ng all the 
necessary tasks in resetting the servo. This includes 

> setting the correct Baud rates < the servo comes up 

> at 19. 2k baud, but normally runs at 57. 6k baud ) and 

> positioning the heads over the data field and keeping 

> t^Ie world stroi ght about it < cylinder is set to 

> llaxOataCyl inder because a DataRecal positions the heads 

> at the closest data cylinder to the inside >. 

> inputs: { none ) 

> Outputs: { none } 
> 

> Algorithm: 

> 

> BEGIN 

> ServoRst := True 

> Uaii for 18 instructions (. about ) to make certain that Reset is valid 

> ServoRst := False 

> Ma it for 2 sees to alloui motor and servo to get ready 

> IF NOT< -ServoRdy > OR -ServoError THEN Abort 

> Baud Rate := 19.2k 

> IF HOT< ServoStore( ReadStatus. x, BaudRate57.8 + Horfsa I Status ) > 

> THEN Abort 

> IF NOTC ServoLoadC NormalReadStatusBuffer > ? 
THEN Abort 

> Baud Rate := 5? 6K 

> IF NOT< Restore< DataRecal > > THEN Abort 

> OiskStatus.OnJfrack := False 

> END 

> Global Uar fables Changed: 

> Cylinder 



• > 

;>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>> > 



LSTOFF 
.FIM 

.DO Internal 

.LSTOH 

-Page 

.FIN 



ResstSerMo: 



S_fistJLp1 



Rnd Porto, *$FF-Not_ServoRst ;set Servo Reset 

Ld ?r2.».HIBVTE. 5 :bus^ wait for 50 msec 

Ld ?r3>.L0MBVTE. s" 

Call nsUa'ii 



S_f?st_i : 



S_Rst_Rbt1 



Or Porto, *liot_ServoRst ; clear Seryo Reset 

Ld !r2.«.HIBVTE. 100 ;busy wait for 1 sec 

Ld {r3,«.L0WBVTE. 100 

Call risWait 

Call LoadStatus .;get seruo status 

Tm ! rO , *ServoErr 

Jr 2,S_R£t_Bd1 

Ld !rfl, !rO 

Can Abort 



S_Rst-£dt: find Tmr,»$FF-TO_CntEn ;ha!t TO 

Ld PreOj,*$D ;PreO := Mod-54, continuous; go to 19.2k baud 

Ld TO,*t ; interrupt after I byte 

Or Tmr #TO_CntEn + TO_J_oad 



S-Rst-Cofflffi: 
S_Rst_Rbt2: 



Cal I 
Srp 
Ld 
CIr 
C 1 r 
Ld 
Srp 

Call 

Cal I 

Jr 

Cal I 

Tni 

Jr 

Ld 
Ld 
Ld 
Can 



Set_Dirjt 
«yrk_Scr 

IrO.^ReadStatus : trq talking to the Servo 

Ir-t ' ' 



!r3,«S_JiDr!n_jStc5tus + SJRcite_57_6 

»Wrk^ys 

Load_SruoCf»nd 

ServoStore 

Z,S_RstJComffl 

LoadJStatus 

! rO , *SerMoErr 

Z,SlRst_Ld 

!rfl,*S_Store 
!rS,«S_Bst_i^bort 
! r9 . *Cofflffl_Err 
Abort 



S_Rst_Ld: 



Ca 1 1 SeryoLoad 

Ld !r7.«SJ-oad 

Jr N2,S_Rst_Bbt2 

find Tnir,«$FF-TOJ:ntEn ; ha It TO 

Ld Pre0j,*$5 ;PreD := 1, continuous run :go to 57. 6k baud 

Ld TO,«t 

Or Tmr.«TOJCntEn + T0_Load 



Srp 
Ld 

CIr 



«Urk-j£cr 

lrO^*DataRecal 

«r1 



Cfr !r2 

Ld !r3,«S_Rate_57-5 

Srp *Wrk_Sys 

Ca ( f Load_SrvoCmnd 

Cdf I SerMoSlore 

Ld !rfl.«S_Store 

Jr Z,S_Rst_flbt2 

Cati ClrJDmt 

Ld lr4,*$D5 ;m\i for max of 2 sees 

Reset_SJLp; Call LoadStatus 

Im !rO^*ServoRdy 

Jr N2,Reset_5_Erid 

Oecw ! Ir4 

Jr Nz,Reset_jS_Lp 

Reset-5_£nd: find DiskStatus,«$FF-On_Track-Of fset_On 
Or D i skS t a tus , «SeekCofflp I e te 

Ld Cur-JCyl,#ln!t_HfCy{ 
Ld CurJC:yl + 1,«lrii t_LoCyl 

S_Rst_2: Jp Bank-Bet 

.LSTOFF 

.DO External 

.LSTON 

. Page 

: >>>>>>>>> > > > > > > > > > > >>>>>>>> > >>>> 

> Procedure: Set_SeekHeeded 

> This p*-oc-edure acts in much the same foshion for the 

> Log f CQ I B I ocRCache as i skS ta t . On-_Track does for s 1 mp 1 e 

> seeks. It keeps a legitimate seeks beti«een torn requests 

> for the same block number from returning €3 bogus resuft. 

> Inputs: { none } 

> Outputs: { none } 

> 

> Rfgorithm: 

> BEGIN 

> FOR i := 1 TO CacheLength DO 

> CachStatC i i.SeekNeeded := True 

> EHO 

:>>>>>>>>>>>>>>> >>>>>>:>> >>>:>:>> > 
.LSTOFF 
.FIN 

.DO \niQrrta\ 

.LSTON 

.Page 

.FfN 

Set_SeekHeeded : 

Ld !r2,».HIBVTE. CachStat 

hStat 

Ld !rl^*CacheLength 



S_3eekNJ_p: Lde !r0,§!!r2 ;get arrai^ value 
Or !rO,«CcichSeek 

Ld Djnz ! r 1 ^ S JSeekN JLp 

Jp Bank-Ret 



.LSTOFF 



